home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
shazam11.zip
/
DEMOC1.VIR
< prev
next >
Wrap
Text File
|
1991-11-04
|
3KB
|
77 lines
{===================================================================
CLOCK OBJECT
===================================================================}
var
Clock : PClockView ;
OldMemAvail : longint ;
{===================================================================
Make use of idle time
===================================================================}
procedure TDemoC1App.Idle ;
begin
TApplication.Idle ;
Clock^.Update ;
end ;
{===================================================================
Watch memory use
===================================================================}
procedure TDemoC1App.PreInit ;
begin
OldMemAvail := MemAvail ;
end ;
{===================================================================
Insert clock into Desktop
===================================================================}
procedure TDemoC1App.PostInit ;
var
R : TRect ;
begin
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Clock
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
GetExtent ( R ) ;
R.A.X := R.B.X - 9 ;
R.B.Y := R.A.Y + 1 ;
Clock := New ( PClockView ,
Init ( R ) ) ;
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Desktop
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
Insert ( Clock ) ;
end ;
{===================================================================
Remove clock from Desktop
NOTE: Remove comments to make work properly!
===================================================================}
procedure TDemoC1App.PreDone ;
begin
(*
Delete ( Clock ) ;
Dispose ( Clock , Done ) ;
*)
end ;
{===================================================================
Make sure we removed everything from Desktop
===================================================================}
procedure TDemoC1App.PostDone ;
begin
if OldMemAvail = MemAvail then EXIT ;
writeln ( #7#7 ) ;
writeln ( 'Memory not totally released!' ) ;
writeln ( '...MemAvail WAS ' , OldMemAvail ) ;
writeln ( '...MemAvail NOW ' , MemAvail ) ;
writeln ;
writeln ( 'see the ''demoC1.VIR'' file and remove comments from ''PreDone''!' ) ;
end ;